(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ ЦвЗнак;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: определение цветного знака                                     * 
 *============================================================================*)
ВИД
  Вид-=НАБОР
    знак,цвет:ЗНАК;
  КОН;
  (* строка цветных знаков *)
  Строка-=РЯД <*ЕСЛИ ЗАДАНО("МПГ") ТО*> 80 <*ИНАЧЕ*> 800 <*КОН*> ИЗ Вид;

(******************************************************************************)
ЗАДАЧА ИзЗнакаИЦвета-(знак,цвет:ЗНАК; цвЗнак+:Вид);
(* Цель:  запись знака и его цвета в ЦвЗнак *)
УКАЗ
  цвЗнак.знак:=знак;
  цвЗнак.цвет:=цвет
КОН ИзЗнакаИЦвета;

КОН ЦвЗнак.